
: CASE 0 ; IMMEDIATE
: OF ['] OVER , ['] = , [COMPILE] IF ['] DROP , ; IMMEDIATE
: ENDOF [COMPILE] ELSE ; IMMEDIATE
: ENDCASE ['] DROP , BEGIN ?DUP WHILE [COMPILE] THEN REPEAT ; IMMEDIATE


: TEST
  KEY CASE
  32 OF ." SPACE" ENDOF
  42 OF ." STAR"  ENDOF
  13 OF ." ENTER" ENDOF
  ." unkown" 
  ENDCASE 
;
: L BEGIN TEST AGAIN ;
